home *** CD-ROM | disk | FTP | other *** search
/ Hyper Erect Magazine / Hyper Erect Magazine - Disc 1.iso / pc / p_bro_m.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1997-04-12  |  1.2 KB  |  40 lines
  1. on startMovie
  2.   unloadMovie(the text of member "fDeleteMovie")
  3.   set the text of member "fDeleteMovie" to "P_BRO_M"
  4.   set the text of member "fPhotoCount" to "1"
  5.   set the visible of sprite 48 to 0
  6.   updateStage()
  7.   hideoff()
  8.   hideon()
  9. end
  10.  
  11. on readpict pfolder, pnumber
  12.   set fname to the pathName
  13.   set fname to fname & "PHOTO:PICT:PHOTO" & value(pfolder) & ":P" & value(pnumber) & ".PCT"
  14.   set the fileName of member "PictCast" to fname
  15.   set the regPoint of member "PictCast" to point(the width of member "PictCast" / 2, the height of member "PictCast" / 2)
  16.   set the picture of member "PictCast2" to the picture of member "PictCast"
  17. end
  18.  
  19. on hideon
  20.   repeat with i = 4 to 9
  21.     set the visible of sprite i to 1
  22.     set the cursor of sprite i to [member "YUBI", member "YUBIM"]
  23.   end repeat
  24.   repeat with i = 10 to 14
  25.     set the cursor of sprite i to [member "YUBI", member "YUBIM"]
  26.   end repeat
  27.   if the visible of sprite 48 = 1 then
  28.     set the visible of sprite 11 to 1
  29.   end if
  30.   updateStage()
  31. end
  32.  
  33. on hideoff
  34.   repeat with i = 4 to 14
  35.     set the visible of sprite i to 0
  36.     set the cursor of sprite i to [member "YUBI", member "YUBIM"]
  37.   end repeat
  38.   updateStage()
  39. end
  40.